home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #4 / Amiga Plus CD - 1998 - No. 4.iso / system / mainactor / install-mainactor-hd < prev    next >
Text File  |  1996-11-04  |  4KB  |  144 lines
  1. ; $VER: MainActor Install Version 1.0 (14.08.95)
  2. ; Script zum Installieren von MainActor (Shareware) auf Festplatte
  3. ; © Michael Giebel
  4.  
  5. (complete 0)
  6.  
  7.  
  8.  
  9. ;=============
  10. ;=== Texte ===
  11. ;=============
  12.  
  13. (set #help-startup
  14. (cat    "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  15.         "In ihr befinden sich spezielle Kommandos, die einige Programme "
  16.         "bereits beim Systemstart ausgeführt haben wollen.\n\n"
  17.         "Wenn Sie auf den Schalter \"Weiter\" klicken, so wird Ihre "
  18.         "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
  19.         "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  20.         "den Schalter \"Skip This Part\"\n\n"
  21.         "\"Abort\" bricht die Installation an dieser Stelle ab."))
  22.  
  23. (set #introduction
  24. (cat    "Mit diesem Installationsprogramm können Sie\n MainActor \n auf einer "
  25.         "Festplatte installieren.\nDie Installation läuft "
  26.         "nahezu vollständig automatisch ab.\n"
  27.         "Das komplette Programm belegt ca. 1,7 MByte auf Ihrer Festplatte!\n\n"
  28.         "Drücken Sie \"Weiter\", um mit der Installation fortzufahren.\n"
  29.         "Drücken Sie \"Installation abbrechen\", um die Installation abzubrechen."))
  30.  
  31. (set #wrk-installing-ma "\nDas MainActor-Paket wird entpackt ...\n")
  32. (set #prp-installation "Auf welches Medium möchten Sie gerne installieren?")
  33.  
  34. (set #prp-installdrawer
  35. (cat    "Auf welches Medium soll installiert werden?\n"
  36.         "Eine Schublade \"MainActor\" muß evtl. selbst erzeugt werden!"))
  37. (set #askdir-help
  38. (cat    "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  39.         "Sie gerne MainActor installieren möchten. Dann drücken Sie "
  40.         "auf \"WEITER\" und das Programm beginnt mit der Arbeit.\n"
  41.         "Es ist notwendig, eine Schublade für MainActor selbst anzulegen!\n"
  42.         "Wählen Sie hierzu \"Neue Schublade anlegen ...\"\n"
  43.         "Es wird keine Schublade automatisch erzeugt!\n\n"
  44.         @askdir-help))
  45.  
  46. (set #msg-disk-too-small
  47. (cat    "\nWenn Sie diese Meldung erhalten, sollten Sie jetzt die Installation "
  48.         "abbrechen und erst einmal Platz auf Ihrer Festplatte schaffen!.\n\n"))
  49.  
  50. (set #prp-insert-disk1
  51. (cat    "\n\nBitte legen Sie nun die Diskette \"MainActorLT\" "
  52.         "in ein beliebiges Laufwerk ein!"))
  53.  
  54. (set #prp-somefiles
  55. (cat    "\nEinige Installationsdateien werden kopiert...\n"))
  56.  
  57. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram Disk kopieren."))
  58.  
  59. (set #Abort13
  60. (cat    "Sie verfügen leider nicht über Betriebssystem 2.0 oder höher.\n"
  61.         "Die Installation wird daher abgebrochen!"))
  62.  
  63. (set @abort-button "Abbruch")
  64. (set @language "Deutsch")
  65.  
  66.  
  67. ;==============
  68. ;=== MAIN() ===
  69. ;==============
  70.  
  71. (message #introduction)
  72. (welcome)
  73.  
  74. ; Laufwerk aussuchen und MainActor-Verzeichnis erzeugen
  75.  
  76. (set @default-dest                                            ; Verzeichnis wählen
  77.     (askdir
  78.         (prompt #prp-installdrawer)
  79.         (help #askdir-help)
  80.         (default "WORK:")
  81.         (disk)
  82.     )
  83. )
  84. (if                                                                ; Installations-Verzeichnis erzeugen
  85.     (= (exists @default-dest) 0)
  86.     (makedir @default-dest)
  87. )
  88.  
  89.  
  90. (complete 10)
  91.  
  92. (copyfiles                                                        ; LHX kopieren
  93.     (prompt "Kopiere Mainactor ...")
  94.     (help @copyfiles-help)
  95.     (source "")
  96.     (pattern "#?")
  97.     (dest @default-dest)
  98. )
  99.  
  100. (complete 80)
  101.  
  102. (if (= (exists "l:mainactor.key") 0)
  103.     (copyfiles
  104.         (prompt "Kopiere Keyfile...")
  105.         (help @copyfiles-help)
  106.         (source "mainactor.key")
  107.         (dest "l:")
  108.     )
  109. )
  110.  
  111.  
  112. (complete 90)
  113.  
  114.  
  115. ; Eintrag in user-startup "Assign MainActor: @default-dest"
  116.  
  117. (set command1
  118. (cat    "Assign MainActor: " @default-dest))
  119. (set command1.txt
  120. (cat    "\nUm mit MainActor arbeiten zu können, "
  121.         "wird ein neues logisches Gerät erzeugt. Außerdem wird "
  122.         "eine Änderung in der\n \"User-Startup\" vorgenommen:\n\n"
  123.         command1))
  124.  
  125. (startup "MainActor"
  126.     (prompt command1.txt)
  127.     (help #help-startup)
  128.     (command command1)
  129. )
  130. (makeassign "MainActor")
  131. (makeassign "MainActor" @default-dest)
  132.  
  133. (complete 100)
  134.  
  135. ;==================
  136. ;=== Conclusion ===
  137. ;==================
  138.  
  139. (message
  140. (cat    "Die Installation von MainActor ist "
  141.         "erfolgreich beendet.\n\n"
  142.         "Bitte lesen Sie die Dokumentation im MainActor-Verzeichnis durch. "
  143.         "Wir wünschen Ihnen viel Spaß beim Arbeiten mit MainActor!"))
  144.